home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Pascal Super Library
/
Pascal Super Library (CW International)(1997).bin
/
LIBRARY
/
PRUS101
/
FFILES.DEC
< prev
next >
Wrap
Text File
|
1994-12-19
|
3KB
|
73 lines
{ FFILES.DEC - include file for the PRUSSG unit FDOS to speed up and enhance
file related operations under DOS / interface part }
(***************************************************************************
RELEASE 1.01 - as first contained in the file PRUS101.LZH
by Peter Schuette, 2:2452/117.19, GERMANY
--------------------------------------------
organized for Fido's PASCAL related echoes
--------------------------------------------
08/12/1994 to 09/05/1994 by Orazio Czerwenka, 2:2450/540.55, GERMANY
09/06/1994 to --/--/---- by Peter Schuette, 2:2452/117.19, GERMANY
As far as third party copyrights are not violated this
source code is hereby placed to the public domain. Use
it whatever way you want, but use AT YOUR OWN RISK.
In case you should modify the source rather send your
modifications to the unit's current organizer (see above for
NM address) than to spread it on your own. This will help to
keep the unit updated and grant a certain standard to all
other users as well.
The unit is currently still under work. So it might greatly
benefit of your participation.
Those who contributed to the following piece of source,
listed in alphabethical order:
================================================================
Orazio Czerwenka, Horst Kraemer, Wilbert van Leijen,
Sieghard Schicktanz, Peter Schuette ...
================================================================
YOUR NAME WILL APPEAR HERE IF YOU CONTRIBUTE USEFUL SOURCE.
Credits in your own programs are as welcome as unnecessary.
***************************************************************************)
CONST
SearchFileAttr : Byte = $27; { Search Attribute used by FILEONPATH }
function FileExists(FileName:PathStr):boolean;
{ reports wether a file, directory or volume label does exist }
function FileOnPath (FileSpec: PathStr; PathVariable: String;
prime: boolean): PathStr;
{ File find routine, that analyses the environments PATH variable
in order to locate the file(s) to be searched for according to
the file attributes defined by SEARCHFILEATTR.
If the specified file name(s) do not specify a file extension it
will be automatically be searched for COM and EXE executables, the
same way normally DOS would do.
Optionally there may also be specified an environment variable different
from PATH to locate the file(s).
The argument PRIME offers the possibility to force a new file quest. }
function DelFile(FileName: String): Integer;
{ deletes a file via Int $21 Function $41 }
{ the same as 'erase' except you don't have to assign the file first }
Function RenFile(OldName, NewName: String): Integer;
{ renames the file via int 21h func 56h }
{ the same as 'rename' except you don't have to assign the file first }
{ 0 - successfully renamed file }
{ 2 - File to rename not found }
{ 3 - Path not found - cannot rename to another drive }
{ for more RTFM TP's online help }
{ -------------------------------------------------------------------------- }
{ interne Änderungsanmerkungen s. FFILES.INC }